1500
How can I add a Zero-Lenght bar
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "Duration" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 258
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2010"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 256
		Set ComAllowLinkBars of hoChart to False
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Variant h1
		Get ComAddItem of hoItems "M1" to h1
		Send ComAddBar of hoItems h1 "Milestone" "9/29/2010" "9/29/2010" Nothing Nothing
		Set ComItemBar of hoItems h1 "" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1499
Can I use bars like Milestone (Zero-Length bar) in SchedulePDM

// Occurs when a bar is moving or resizing.
Procedure OnComBarResizing HITEM   llItem Variant   llKey
	Forward Send OnComBarResizing llItem llKey
	Variant v
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComSchedulePDM of hoItems llItem llKey to v
	Send Destroy to hoItems
	Showln v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 543
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "Duration" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 258
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "%3" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBold of hoConditionalFormat to True
			Set ComApplyTo of hoConditionalFormat to OLEexFormatToItems
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voConditionalFormats1
	Get ComConditionalFormats to voConditionalFormats1
	Handle hoConditionalFormats1
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1
	Set pvComObject of hoConditionalFormats1 to voConditionalFormats1
		Variant voConditionalFormat1
		Get ComAdd of hoConditionalFormats1 "%3 = 0" Nothing to voConditionalFormat1
		Handle hoConditionalFormat1
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
		Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
			Set ComForeColor of hoConditionalFormat1 to (RGB(196,196,196))
			Set ComApplyTo of hoConditionalFormat1 to |CI$3
		Send Destroy to hoConditionalFormat1
	Send Destroy to hoConditionalFormats1
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2010"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 256
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComAllowCellValueToItemBar of hoItems1 to True
		Variant h1
		Get ComAddItem of hoItems1 "M1" to h1
		Send ComAddBar of hoItems1 h1 "Milestone" "9/27/2010" "9/27/2010" Nothing Nothing
		Set ComItemBar of hoItems1 h1 "" OLEexBarKeepWorkingCount to True
		Variant h2
		Get ComAddItem of hoItems1 "T1" to h2
		Send ComAddBar of hoItems1 h2 "Task" "9/27/2010" "9/27/2010" Nothing Nothing
		Set ComItemBar of hoItems1 h2 "" OLEexBarEndInclusive to "9/27/2010"
		Set ComItemBar of hoItems1 h2 "" OLEexBarKeepWorkingCount to True
		Send ComAddLink of hoItems1 "L1" h1 "" h2 ""
		Variant h3
		Get ComAddItem of hoItems1 "T2" to h3
		Send ComAddBar of hoItems1 h3 "Task" "9/27/2010" "9/27/2010" Nothing Nothing
		Set ComItemBar of hoItems1 h3 "" OLEexBarEndInclusive to "9/27/2010"
		Set ComItemBar of hoItems1 h3 "" OLEexBarKeepWorkingCount to True
		Send ComAddLink of hoItems1 "L2" h1 "" h3 ""
		Set ComLink of hoItems1 "L2" OLEexLinkPDMWorkingDelay to 5
		Variant h4
		Get ComAddItem of hoItems1 "M3" to h4
		Send ComAddBar of hoItems1 h4 "Milestone" "9/27/2010" "9/27/2010" Nothing Nothing
		Set ComItemBar of hoItems1 h4 "" OLEexBarKeepWorkingCount to False
		Send ComAddLink of hoItems1 "L3" h1 "" h4 ""
		Set ComLink of hoItems1 "L3" OLEexLinkPDMWorkingDelay to 5
		Get ComSchedulePDM of hoItems1 0 "" to Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1498
How can I prevent vertical scrolling when user clicks the overview part of the control

// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "8/3/1994"
		Set ComPaneWidth of hoChart False to 256
		Set ComLevelCount of hoChart to 2
		Set ComUnitScale of hoChart to OLEexDay
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
	Send Destroy to hoChart
	Set ComColumnAutoResize to False
	Set ComContinueColumnScroll to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComAllowCellValueToItemBar of hoItems1 to True
	Send Destroy to hoItems1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 2 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 4 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure
1497
I need to specify the start and end dates of the bar to be the same, but no bars are shown. (recommended for bars with exBarKeepWorkingCount ) What I can do

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 543
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 256
		Set ComShowEmptyBars of hoChart to 0
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "9/21/2006" "9/21/2006" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarEndInclusive to (ComItemBar(hoItems,h,"",OLEexBarStart))
		Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Task" "9/21/2006" "9/21/2006" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarEndInclusive to "9/25/2006"
		Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1496
How can I display the end date to be the last visible date of task, instead the next day

// Occurs when a bar is moved or resized.
Procedure OnComBarResize HITEM   llItem Variant   llKey
	Forward Send OnComBarResize llItem llKey
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComSchedulePDM of hoItems llItem llKey to Nothing
	Send Destroy to hoItems
End_Procedure

// Occurs when a bar is moving or resizing.
Procedure OnComBarResizing HITEM   llItem Variant   llKey
	Forward Send OnComBarResizing llItem llKey
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComSchedulePDM of hoItems1 llItem llKey to Nothing
	Send Destroy to hoItems1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComHeaderHeight to 36
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComHTMLCaption of hoColumn1 to "<b>End</b><br>Inclusive"
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 543
			Variant voEditor
			Get ComEditor of hoColumn1 to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "End" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 2
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats 1 Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBold of hoConditionalFormat to True
			Set ComApplyTo of hoConditionalFormat to |CI$2
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 256
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Set ComAllowCellValueToItemBar of hoItems2 to True
		Variant h1
		Get ComAddItem of hoItems2 "Task 1" to h1
		Send ComAddBar of hoItems2 h1 "Task" "9/21/2006" "9/23/2006" Nothing Nothing
		Variant h2
		Get ComAddItem of hoItems2 "Task 2" to h2
		Send ComAddBar of hoItems2 h2 "Task" "9/21/2006" "9/26/2006" Nothing Nothing
		Send ComAddLink of hoItems2 "link" h1 "" h2 ""
		Set ComItemBar of hoItems2 0 "<*>" OLEexBarKeepWorkingCount to True
		Get ComSchedulePDM of hoItems2 0 "" to Nothing
	Send Destroy to hoItems2
	Send ComEndUpdate
End_Procedure
1495
How do I hide the selection 
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComSelForeColor to (ComForeColor(Self))
	Set ComSelBackColor to (ComBackColor(Self))
	Set ComShowFocusRect to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Format" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
		Get ComAddItem of hoItems -8 to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1494
How do I access the cells, or how do I get the values in the columns
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
		Get ComAdd of hoColumns "C2" to Nothing
		Get ComAdd of hoColumns "C3" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Item 1" to h
		Set ComCellValue of hoItems h 1 to "SubItem 1.1"
		Set ComCellValue of hoItems h 2 to "SubItem 1.2"
		Showln (ComCellValue(hoItems,h,1))
	Send Destroy to hoItems
End_Procedure
1493
Is there any function I can use to indicate the Now() when using the ComputedFields, CondtionalFormats, ... 
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Now" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "date(``)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "" to Nothing
	Send Destroy to hoItems
End_Procedure
1492
How can I get the start and end points of the bar once the BarResize event occurs
// Occurs when a bar is moved or resized.
Procedure OnComBarResize HITEM   llItem Variant   llKey
	Forward Send OnComBarResize llItem llKey
	Variant v
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComItemBar of hoItems llItem llKey OLEexBarStart to v
	Send Destroy to hoItems
	Showln "Start: " v
	Variant v1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComItemBar of hoItems1 llItem llKey OLEexBarEnd to v1
	Send Destroy to hoItems1
	Showln "End: " v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
		Variant v2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Get ComItem of hoBars "Task" to v2
		Send Destroy to hoBars
		Variant var_Bar
		Move v2 to var_Bar
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 1")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 2")) "Task" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems2
	Send ComEndUpdate
End_Procedure
1491
My chart displays hours, the question would be if possible to let user resizes the bars up to 1/2 hour, or a half an hour
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 22
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComLevelCount of hoChart to 2
		Set ComUnitScale of hoChart to OLEexHour
		Set ComResizeUnitScale of hoChart to OLEexMinute
		Set ComResizeUnitCount of hoChart to 30
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComDrawGridLines of hoChart to OLEexAllLines
		Variant voLevel
		Get ComLevel of hoChart 1 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComDrawGridLines of hoLevel to True
		Send Destroy to hoLevel
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Task" to Nothing
		Get ComAddItem of hoItems "Task" to Nothing
		Get ComAddItem of hoItems "Task" to Nothing
		Get ComAddItem of hoItems "Task" to Nothing
		Get ComAddItem of hoItems "Task" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1490
How can I show the dates in the title
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/30/2002"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 0
		Set ComUnitScale of hoChart to OLEexHour
		Set ComDrawGridLines of hoChart to OLEexAllLines
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment)
		Send Destroy to hoLevel
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
1489
If I vertically scroll the control the image flows fluently. But when I scroll on the horizontal chart's scrollbar the images only shows after I release the click button. Can I make it scroll fluently like the vertical scrollbar
Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComToolTip of hoChart1 to ""
	Send Destroy to hoChart1
End_Procedure
1488
How can I programmatically add a bar during the CreateBar event
// Fired when the user creates a new bar.
Procedure OnComCreateBar HITEM   llItem DateTime   llDateStart DateTime   llDateEnd
	Forward Send OnComCreateBar llItem llDateStart llDateEnd
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant k
		Get ComItemBar of hoItems llItem "" OLEexBarsCount to k
		Send ComAddBar of hoItems llItem "Order" llDateStart llDateEnd k "your text"
	Send Destroy to hoItems
	Variant v
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComItemBar of hoItems1 llItem "" OLEexBarsCount to v
	Send Destroy to hoItems1
	Showln v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowCreateBar of hoChart to OLEexCreateBarManual
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "12/28/2000"
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Get ComCopy of hoBars "Task" "Order" to Nothing
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Get ComAddItem of hoItems2 1 to Nothing
		Get ComAddItem of hoItems2 2 to Nothing
		Get ComAddItem of hoItems2 3 to Nothing
	Send Destroy to hoItems2
	Send ComEndUpdate
End_Procedure
1487
How can I move more bars by code
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 48
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/1/2001" "1/6/2001" "A" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/7/2001" "B" Nothing
		Set ComItemBar of hoItems 0 "<*>" OLEexBarMove to 1
		Set ComItemBar of hoItems 0 "<A*>" OLEexBarMove to 1
		Set ComItemBar of hoItems 0 "<B*>" OLEexBarMove to 1
	Send Destroy to hoItems
End_Procedure
1486
How can I move a bar by code
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 48
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/1/2001" "1/6/2001" "A" Nothing
		Set ComItemBar of hoItems h "A" OLEexBarMove to 1
	Send Destroy to hoItems
End_Procedure
1485
How can I clip the notes to the items zone only

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComAntiAliasing to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 96
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems Nothing to Nothing
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "1" Nothing
	Send Destroy to hoItems
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant voNotes
		Get ComNotes of hoChart1 to voNotes
		Handle hoNotes
		Get Create (RefClass(cComNotes)) to hoNotes
		Set pvComObject of hoNotes to voNotes
Variant vItem
				Variant voItems1
				Get ComItems to voItems1
				Handle hoItems1
				Get Create (RefClass(cComItems)) to hoItems1
				Set pvComObject of hoItems1 to voItems1
					Get ComItemByIndex of hoItems1 1 to vItem
				Send Destroy to hoItems1
						Variant voNote
			Get ComAdd of hoNotes "1" vItem "1" "<img>2</img>" to voNote
			Handle hoNote
			Get Create (RefClass(cComNote)) to hoNote
			Set pvComObject of hoNote to voNote
				Set ComPartShadow of hoNote OLEexNoteEnd to False
				Set ComPartBorderSize of hoNote OLEexNoteEnd to 0
				Send ComClearPartBackColor of hoNote OLEexNoteEnd
				Set ComPartCanMove of hoNote OLEexNoteEnd to True
				Set ComRelativePosition of hoNote to 0.5
				Set ComPartVOffset of hoNote OLEexNoteEnd to -36
			Send Destroy to hoNote
			Set ComClipTo of hoNotes to OLEexNotesClipToItems
		Send Destroy to hoNotes
	Send Destroy to hoChart1
	Send ComEndUpdate
End_Procedure
1484
How can I put two bars of various types, in the event of conflict do not coincide

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 22
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComScrollBySingleLine to True
	Set ComBackColorAlternate to (RGB(240,240,240))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "12/28/2000"
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
				Set ComOverlaidGroup of hoBar to "NewTask"
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComCopy of hoBars1 "Task" "NewTask" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
				Set ComOverlaidGroup of hoBar1 to "Task"
				Set ComColor of hoBar1 to (RGB(255,0,0))
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Default" to h1
		Get ComAddItem of hoItems "Overlaid" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" "A1"
		Send ComAddBar of hoItems h "NewTask" "1/3/2001" "1/5/2001" "A2" "A2"
		Send ComAddBar of hoItems h "NewTask" "1/4/2001" "1/7/2001" "A3" "A3"
		Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A4" "A4"
		Get ComAddItem of hoItems "Default" to h1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1483
How can I run trigger an event which, after clicking on the item/bar gives the key/name or item id
// Occurs when the user presses a mouse button.
Procedure OnComMouseDown Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseDown llButton llShift llX llY
	Variant item
	Get ComItemFromPoint -1 -1 column hit to item
	Variant v
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComBarFromPoint of hoChart -1 -1 to v
	Send Destroy to hoChart
	Variant key
	Move v to key
	Showln "Item:" item
	Showln "Key:" key
	Variant v1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComCellValue of hoItems item 0 to v1
	Send Destroy to hoItems
	Showln "CellValue(i,0):" v1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComItemBar of hoItems1 item key OLEexBarColor to 255
	Send Destroy to hoItems1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComFirstVisibleDate of hoChart1 to "12/29/2000"
		Set ComPaneWidth of hoChart1 False to 64
		Set ComLevelCount of hoChart1 to 2
	Send Destroy to hoChart1
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Variant h1
		Get ComAddItem of hoItems2 "Task 1" to h1
		Send ComAddBar of hoItems2 h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems2 "Task 2" to h2
		Send ComAddBar of hoItems2 h2 "Task" "1/4/2001" "1/6/2001" "K2" Nothing
		Send ComAddLink of hoItems2 "L1" h1 "K1" h2 "K2"
		Variant h3
		Get ComAddItem of hoItems2 "Task 3" to h3
		Send ComAddBar of hoItems2 h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
		Send ComAddLink of hoItems2 "L2" h2 "K2" h3 "K3"
	Send Destroy to hoItems2
	Send ComEndUpdate
End_Procedure
1482
How can I change the check-boxes appearance

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Default" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComPartialCheck of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "XP:Button 3 12" to Nothing
		Get ComAdd of hoAppearance 2 "XP:Button 3 11" to Nothing
		Get ComAdd of hoAppearance 3 "XP:Button 3 10" to Nothing
	Send Destroy to hoAppearance
	Set ComCheckImage OLEUnchecked to 16777216
	Set ComCheckImage OLEChecked to 33554432
	Set ComCheckImage OLEPartialChecked to 50331648
End_Procedure
1481
How can I change the color for the control's split bar (sample 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Set ComBackground OLEexSplitBar to (RGB(0,0,1))
	Set ComBackColorLevelHeader to (ComBackColor(Self))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 64
		Set ComHistogramVisible of hoChart to True
		Set ComHistogramHeight of hoChart to 64
		Set ComOverviewHeight of hoChart to 48
		Set ComOverviewVisible of hoChart to OLEexOverviewShowAll
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
1480
Is it possible to display ONLY the working hours

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to 4096
			Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment)
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%hh%>"
			Set ComCount of hoLevel1 to 6
		Send Destroy to hoLevel1
		Set ComUnitWidth of hoChart to 26
		Set ComPaneWidth of hoChart False to 0
		Set ComNonworkingHours of hoChart to 15728895
		Set ComShowNonworkingUnits of hoChart to False
		Set ComShowNonworkingHours of hoChart to False
	Send Destroy to hoChart
End_Procedure
1479
How can I display the end of the day in the chart's header

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to 4096
			Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment)
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%hh%>"
			Set ComCount of hoLevel1 to 6
			Set ComReplaceLabel of hoLevel1 "08" to "<b>8</b> <font ;6>am"
			Set ComReplaceLabel of hoLevel1 "14" to "<b>8</b> <font ;6>pm"
		Send Destroy to hoLevel1
		Set ComUnitWidth of hoChart to 26
		Set ComPaneWidth of hoChart False to 0
		Set ComNonworkingHours of hoChart to 15728895
		Set ComShowNonworkingUnits of hoChart to False
		Set ComShowNonworkingHours of hoChart to False
	Send Destroy to hoChart
End_Procedure
1478
How can I display the +/- expanding buttons in the chart section

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComIndent to 13
	Set ComHasButtons to OLEexWPlus
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/25/2010"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 0
		Set ComColumnsFormatLevel of hoChart to "0"
		Variant v
			Get ComSelBackColor to v
		Set ComSelBackColor of hoChart to v
		Variant v1
			Get ComSelForeColor to v1
		Set ComSelForeColor of hoChart to v1
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "P1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComPartialCheck of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Child 1")) "Task" "1/2/2011" "1/5/2011" Nothing Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Child 2")) "Task" "1/4/2011" "1/7/2011" Nothing Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Child 3")) "Task" "1/7/2011" "1/8/2011" Nothing Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1477
Is it possible to display the columns in the chart aligned to the right

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 24
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Key" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 0
			Set ComVisible of hoColumn to False
			Set ComAlignment of hoColumn to OLERightAlignment
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/30/2000"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 0
		Set ComColumnsFormatLevel of hoChart to "|,1:52"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Split" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Progress" "1/3/2001" "1/7/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1476
How can I display a border in the chart

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 24
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Key" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 0
			Set ComVisible of hoColumn to False
			Set ComAlignment of hoColumn to OLECenterAlignment
			Set ComDef of hoColumn OLEexCellForeColor to 255
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/30/2000"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 0
		Set ComColumnsFormatLevel of hoChart to "1:52,\"\"[bg=255]:2"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Split" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Progress" "1/3/2001" "1/7/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1475
How can I change the font to display the columns in the chart (Method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 24
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Key" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 0
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats 1 Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBold of hoConditionalFormat to True
			Set ComApplyTo of hoConditionalFormat to |CI$1
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/30/2000"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 48
		Set ComColumnsFormatLevel of hoChart to "1"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Split" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Progress" "1/3/2001" "1/7/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1474
How can I change the font to display the columns in the chart (Method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 24
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Key" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 0
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/30/2000"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 48
		Set ComColumnsFormatLevel of hoChart to "1"
		Variant v
			Get ComFont to v
		Set ComColumnsFont of hoChart to v
		Variant voStdFont
		Get ComColumnsFont of hoChart to voStdFont
		Handle hoStdFont
		Get Create (RefClass(cComStdFont)) to hoStdFont
		Set pvComObject of hoStdFont to voStdFont
			Set ComSize of hoStdFont to 12
			Set ComName of hoStdFont to "Tahoma"
		Send Destroy to hoStdFont
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Split" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Progress" "1/3/2001" "1/7/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1473
How can I change the column's background color when it is displayed on the chart (Method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Key" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 0
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/30/2000"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 48
		Set ComColumnsFormatLevel of hoChart to "1[bg=255]:52"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Split" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Progress" "1/3/2001" "1/7/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1472
How can I change the column's background color when it is displayed on the chart (Method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Key" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 0
			Set ComVisible of hoColumn to False
			Set ComDef of hoColumn OLEexCellBackColor to 15790320
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/30/2000"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 48
		Set ComColumnsFormatLevel of hoChart to "1:52"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Split" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Progress" "1/3/2001" "1/7/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1471
Can the chart display any column

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
			Set ComVisible of hoColumn to False
			Set ComAlignment of hoColumn to OLELeftAlignment
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComAdd of hoColumns2 "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
			Set ComVisible of hoColumn1 to False
			Set ComAlignment of hoColumn1 to OLERightAlignment
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 48
		Set ComColumnsFormatLevel of hoChart to "1:52,|,2:52"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2001" "1/8/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1470
Is it possible to display a check-box column on the chart

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Check" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 48
		Set ComColumnsFormatLevel of hoChart to "1"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2001" "1/8/2001" Nothing Nothing
	Send Destroy to hoItems
End_Procedure
1469
Is it possible to disable the cell's editor context menu 
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Set ComOption of hoEditor OLEexEditAllowContextMenu to False
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
		Get ComAddItem of hoItems 20 to Nothing
	Send Destroy to hoItems
End_Procedure
1468
How can I find a value in a drop down editor
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDownList" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "DDList 1" Nothing
				Send ComAddItem of hoEditor 2 "DDList 2" Nothing
				Send ComAddItem of hoEditor 3 "DDList 3" Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "DropDown" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEDropDownType
				Send ComAddItem of hoEditor1 1 "DDType 1" Nothing
				Send ComAddItem of hoEditor1 2 "DDType 2" Nothing
				Send ComAddItem of hoEditor1 3 "DDType 3" Nothing
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant v
			Variant voColumns2
			Get ComColumns to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Variant voColumn2
				Get ComItem of hoColumns2 1 to voColumn2
				Handle hoColumn2
				Get Create (RefClass(cComColumn)) to hoColumn2
				Set pvComObject of hoColumn2 to voColumn2
					Variant voColumn3
					Get ComItem of hoColumn2 1 to voColumn3
					Handle hoColumn3
					Get Create (RefClass(cComColumn)) to hoColumn3
					Set pvComObject of hoColumn3 to voColumn3
						Variant voEditor2
						Get ComEditor of hoColumn3 to voEditor2
						Handle hoEditor2
						Get Create (RefClass(cComEditor)) to hoEditor2
						Set pvComObject of hoEditor2 to voEditor2
							Get ComFindItem of hoEditor2 1 to v
						Send Destroy to hoEditor2
					Send Destroy to hoColumn3
				Send Destroy to hoColumn2
			Send Destroy to hoColumns2
		Set ComCellValue of hoItems (ComAddItem(hoItems,1)) 1 to v
		Variant v1
			Variant voColumns3
			Get ComColumns to voColumns3
			Handle hoColumns3
			Get Create (RefClass(cComColumns)) to hoColumns3
			Set pvComObject of hoColumns3 to voColumns3
				Variant voColumn4
				Get ComItem of hoColumns3 1 to voColumn4
				Handle hoColumn4
				Get Create (RefClass(cComColumn)) to hoColumn4
				Set pvComObject of hoColumn4 to voColumn4
					Variant voColumn5
					Get ComItem of hoColumn4 1 to voColumn5
					Handle hoColumn5
					Get Create (RefClass(cComColumn)) to hoColumn5
					Set pvComObject of hoColumn5 to voColumn5
						Variant voEditor3
						Get ComEditor of hoColumn5 to voEditor3
						Handle hoEditor3
						Get Create (RefClass(cComEditor)) to hoEditor3
						Set pvComObject of hoEditor3 to voEditor3
							Get ComFindItem of hoEditor3 2 to v1
						Send Destroy to hoEditor3
					Send Destroy to hoColumn5
				Send Destroy to hoColumn4
			Send Destroy to hoColumns3
		Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to v1
	Send Destroy to hoItems
End_Procedure
1467
What is the difference between DropDownType and DropDownListType
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDownList" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "First item" Nothing
				Send ComAddItem of hoEditor 2 "Second item" Nothing
				Send ComAddItem of hoEditor 3 "Third item" Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "DropDown" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEDropDownType
				Send ComAddItem of hoEditor1 1 "First item" Nothing
				Send ComAddItem of hoEditor1 2 "Second item" Nothing
				Send ComAddItem of hoEditor1 3 "Third item" Nothing
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,1)) 1 to "Any"
		Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to "Any"
	Send Destroy to hoItems
End_Procedure
1466
How can I mark or enlarge the selected bars, so I have a clear frame around (Method 3)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 32
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "CP:1 -2 -2 2 2" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2002"
		Set ComSelBarColor of hoChart to |CI$2ff0000
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
		Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing
		Send ComAddBar of hoItems h "Task" "1/11/2002" "1/14/2002" "C" Nothing
		Set ComItemBar of hoItems h "A" OLEexBarSelected to True
		Set ComItemBar of hoItems h "B" OLEexBarSelected to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1465
How can I mark or enlarge the selected bars, so I have a clear frame around (Method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 32
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "CP:1 -2 -2 2 2" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2002"
		Set ComSelBarColor of hoChart to |CI$2000000
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
		Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing
		Send ComAddBar of hoItems h "Task" "1/11/2002" "1/14/2002" "C" Nothing
		Set ComItemBar of hoItems h "A" OLEexBarSelected to True
		Set ComItemBar of hoItems h "B" OLEexBarSelected to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1464
How can I mark or enlarge the selected bars, so I have a clear frame around (Method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 32
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BNkMQAAYAQGKIYBkAKBQAGaAoDDYNQwQwAAwjIKEEwsACEIrjKCVIgkHYJRjGEZxMAsEwjAoaQChEZRUhEMgxDDIIxAJIcaw0GSEZwgOQZBiOEYnDANMgzDLMZR7DajYymSA6LiKNo+QjKFB0NLMVRtEIIIzCSCaNomT4DS4NIi2DYcVhhMqBYbtCZZBo2FpZUxXdL0BJMVxbHKYJikW4pVjoAJ+TxccjVDQNJyLQ6rYzuAAKNpuO58RbdGDQHA9KyfLCEcTxYAMbp6X5kaBZVp2VCMRzbTLUIDzPNVCTrNIaJioAaMeiCG5NUzieqRNalLABFjZMIHDbtGynDIJZruW52+CLIZpWbEOiRXr2TxxgGYp5Fie5mAYBgIgSFDrDOIZUmQZYiECXJUjIEQ3lUGgbEIRQcg+Hg8DEFxYFuOR/i+X5znufh/omBgCgCVwjn4BoBmCCAmAqApgkefgMgOYQID4DoELsUgTgUYYIC4F4GGGSAaBuBxhhgfgggUYgog4EYJGIaBJn6ChiBiLgsgkIpoj4J4BCMSJWDaDZjgiZgCEAQCAgA==" to Nothing
		Get ComAdd of hoAppearance 2 "CP:1 -2 -2 2 2" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2002"
		Set ComSelBarColor of hoChart to |CI$2000000
		Set ComPaneWidth of hoChart False to 48
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
		Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing
		Send ComAddBar of hoItems h "Task" "1/11/2002" "1/14/2002" "C" Nothing
		Set ComItemBar of hoItems h "A" OLEexBarSelected to True
		Set ComItemBar of hoItems h "B" OLEexBarSelected to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1463
How can I load my table from an Access 2007, using ADO
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "8/3/1994"
		Set ComPaneWidth of hoChart False to 256
		Set ComLevelCount of hoChart to 2
		Set ComUnitScale of hoChart to OLEexDay
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
	Send Destroy to hoChart
	Set ComColumnAutoResize to False
	Set ComContinueColumnScroll to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComAllowCellValueToItemBar of hoItems1 to True
	Send Destroy to hoItems1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 2 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 4 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure
1462
Is it possible to enumerate the links without enumerating them

Procedure OnCreate
	Forward Send OnCreate
	Set ComAntiAliasing to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 128
		Set ComNonworkingDays of hoChart to 0
		Set ComLinksWidth of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/6/2001" "1/8/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Variant h3
		Get ComAddItem of hoItems "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/10/2001" "1/12/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Variant h4
		Get ComAddItem of hoItems "Task 4" to h4
		Send ComAddBar of hoItems h4 "Task" "1/14/2001" "1/16/2001" "K4" Nothing
		Send ComAddLink of hoItems "L3" h3 "K3" h4 "K4"
		Set ComLink of hoItems "<L*>" OLEexLinkShowDir to False
	Send Destroy to hoItems
End_Procedure
1461
How can I display a vertical line in the chart
// Occurs when the user presses and then releases the left mouse button over the tree control.
Procedure OnComClick 
	Forward Send OnComClick 
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComMarkNowColor of hoChart to (RGB(255,0,0))
		Set ComMarkNow of hoChart to (ComDateFromPoint(hoChart,-1,-1))
	Send Destroy to hoChart
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComFirstVisibleDate of hoChart1 to "3/13/2012"
		Set ComPaneWidth of hoChart1 False to 0
		Set ComLevelCount of hoChart1 to 2
		Set ComMarkNowColor of hoChart1 to (RGB(0,0,0))
		Set ComMarkNowWidth of hoChart1 to 3
		Set ComUnitWidth of hoChart1 to 32
		Set ComResizeUnitScale of hoChart1 to OLEexHour
	Send Destroy to hoChart1
End_Procedure
1460
How can I use the MarkNowColor to mark a time line different then the time on the machine

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "3/13/2012"
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to 1048576
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%ss%>"
			Set ComCount of hoLevel1 to 15
		Send Destroy to hoLevel1
		Set ComMarkNowColor of hoChart to (RGB(255,0,0))
		Set ComMarkNowWidth of hoChart to 3
		Set ComMarkNow of hoChart to "3/13/2012 12:03:20 AM"
	Send Destroy to hoChart
End_Procedure
1459
Is it possible to show the current date time using a delay

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to 1048576
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%ss%>"
			Set ComCount of hoLevel1 to 15
		Send Destroy to hoLevel1
		Set ComMarkNowColor of hoChart to (RGB(0,0,255))
		Set ComMarkNowWidth of hoChart to 3
		Set ComMarkNowDelay of hoChart to 0.00069444
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/1/2008" "1/1/2018" Nothing Nothing
	Send Destroy to hoItems
End_Procedure
1458
What are the options to show the links between bars 

Procedure OnCreate
	Forward Send OnCreate
	Set ComAntiAliasing to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 128
		Set ComNonworkingDays of hoChart to 0
		Set ComLinksWidth of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Get ComAddItem of hoItems "" to Nothing
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Get ComAddItem of hoItems "" to Nothing
		Send ComAddBar of hoItems h2 "Task" "1/6/2001" "1/8/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Variant h3
		Get ComAddItem of hoItems "Task 3" to h3
		Get ComAddItem of hoItems "" to Nothing
		Send ComAddBar of hoItems h3 "Task" "1/12/2001" "1/14/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems "L2" OLEexLinkShowRound to -1
		Variant h4
		Get ComAddItem of hoItems "Task 4" to h4
		Send ComAddBar of hoItems h4 "Task" "1/18/2001" "1/20/2001" "K4" Nothing
		Send ComAddLink of hoItems "L3" h3 "K3" h4 "K4"
		Set ComLink of hoItems "L3" OLEexLinkShowRound to 1
		Get ComAddItem of hoItems "" to Nothing
		Variant h5
		Get ComAddItem of hoItems "Task 5" to h5
		Send ComAddBar of hoItems h5 "Task" "1/22/2001" "1/24/2001" "K5" Nothing
		Send ComAddLink of hoItems "L4" h4 "K4" h5 "K5"
		Set ComLink of hoItems "L4" OLEexLinkShowRound to 2
	Send Destroy to hoItems
End_Procedure
1457
Is it possible to specify the link between bars to be a wider line

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 128
		Set ComNonworkingDays of hoChart to 0
		Set ComLinksStyle of hoChart to OLEexLinkSolid
		Set ComLinksWidth of hoChart to 2
		Set ComLinksColor of hoChart to (RGB(255,0,0))
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/6/2001" "1/8/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Variant h3
		Get ComAddItem of hoItems "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/10/2001" "1/12/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
	Send Destroy to hoItems
End_Procedure
1456
Is it possible to create a link between the two specified bars so that the link was a straight line

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComAntiAliasing to True
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 128
		Set ComNonworkingDays of hoChart to 0
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/6/2001" "1/8/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkStyle to 0
		Set ComLink of hoItems "L1" OLEexLinkWidth to 2
		Set ComLink of hoItems "L1" OLEexLinkColor to 255
		Set ComLink of hoItems "L1" OLEexLinkShowRound to 2
		Variant h3
		Get ComAddItem of hoItems "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/10/2001" "1/12/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
	Send Destroy to hoItems
End_Procedure
1455
I associate the bars with my columns, Start and End, but can not get it working for bars with non-empty keys. What am I doing wrong

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
			Set ComDef of hoColumn OLEexCellValueToItemBarKey to "A"
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
			Set ComDef of hoColumn1 OLEexCellValueToItemBarKey to "A"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
	Send Destroy to hoItems
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 256
		Set ComFirstVisibleDate of hoChart to "1/1/2002"
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsStack
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "1/4/2002" "1/8/2002" "A" "A"
		Variant h
		Get ComAddItem of hoItems1 "Task 2" to h
		Send ComAddBar of hoItems1 h "Task" "1/6/2002" "1/10/2002" "A" "A"
		Send ComAddBar of hoItems1 h "Task" "1/4/2002" "1/8/2002" "B" "B"
		Set ComItemBar of hoItems1 h "B" OLEexBarColor to 255
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1454
The right pane needs to show ONLY the hours 6am to 9pm (every hour) for one day only and the user should not to be able to scroll left or right nor see any other hours. How can I do that

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComScrollRange of hoChart OLEexStartDate to "1/1/2001"
		Set ComScrollRange of hoChart OLEexEndDate to "1/1/2001"
		Set ComUnitScale of hoChart to OLEexHour
		Set ComNonworkingHours of hoChart to 12582975
		Set ComShowNonworkingUnits of hoChart to False
		Set ComShowNonworkingHours of hoChart to False
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment)
		Send Destroy to hoLevel
		Set ComUnitWidth of hoChart to 18
		Set ComPaneWidth of hoChart True to 294
		Set ComScrollBar of hoChart to False
	Send Destroy to hoChart
	Set ComOnResizeControl to OLEexDisableSplitter
	Send ComEndUpdate
End_Procedure
1453
Is it possible to count only a specified type of bars without enumerating them
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" "K1"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Progress" "1/3/2001" "1/5/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "P3" "P3"
		Showln "K*" (ComItemBar(hoItems,0,"<K*>",OLEexBarsCount))
		Showln "K* P*" (ComItemBar(hoItems,0,"<K* P*>",OLEexBarsCount))
	Send Destroy to hoItems
End_Procedure
1452
How can I count or get the numbers of the bars in the chart
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" "K1"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "A2" "A2"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K3" "K3"
		Showln "All" (ComItemBar(hoItems,0,"<*>",OLEexBarsCount))
		Showln "A*" (ComItemBar(hoItems,0,"<A*>",OLEexBarsCount))
		Showln "K*" (ComItemBar(hoItems,0,"<K*>",OLEexBarsCount))
	Send Destroy to hoItems
End_Procedure
1451
Is it possible to remove only specified bars from ALL items at once
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" "K1"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "A2" "A2"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K3" "K3"
		Send ComRemoveBar of hoItems 0 "<K*>"
	Send Destroy to hoItems
End_Procedure
1450
How can I remove all bars from the chart (method 2)
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" "K1"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "A2" "A2"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K3" "K3"
		Send ComClearBars of hoItems 0
	Send Destroy to hoItems
End_Procedure
1449
How can I remove all bars from the chart (method 1)
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" "K1"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "A2" "A2"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K3" "K3"
		Send ComRemoveBar of hoItems 0 "<*>"
	Send Destroy to hoItems
End_Procedure
1448
Is it possible to update at once a property for several bars without enumerating them
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" "K1"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "A2" "A2"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K3" "K3"
		Set ComItemBar of hoItems 0 "<K*>" OLEexBarColor to 255
	Send Destroy to hoItems
End_Procedure
1447
Is it possible to update at once a property of ALL bars without enumerating them
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" "K1"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "A2" "A2"
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K3" "K3"
		Set ComItemBar of hoItems 0 "<*>" OLEexBarColor to 255
	Send Destroy to hoItems
End_Procedure
1446
How do I prevent selecting a new item when selecting a bar
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/29/2000"
		Set ComPaneWidth of hoChart False to 64
		Set ComLevelCount of hoChart to 2
		Set ComSelectOnClick of hoChart to False
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2001" "1/6/2001" "K2" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/8/2001" "1/10/2001" "K3" Nothing
		Set ComSelectItem of hoItems (ComFirstVisibleItem(hoItems)) to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1445
Is it possible to find out all incoming bars ( recursively )

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComBarFromPoint of hoChart -1 -1 to v
	Send Destroy to hoChart
	Variant b
	Move v to b
	Variant i
	Get ComItemFromPoint -1 -1 c hit to i
	Variant v1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComItemBar of hoItems i b OLEexBarIncomingBarsAllDebug to v1
	Send Destroy to hoItems
	Showln v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComLevelCount of hoChart1 to 2
		Set ComFirstVisibleDate of hoChart1 to "12/28/2000"
		Set ComPaneWidth of hoChart1 False to 96
		Set ComNonworkingDays of hoChart1 to 0
		Set ComAllowLinkBars of hoChart1 to True
		Set ComAllowCreateBar of hoChart1 to OLEexCreateBarAuto
	Send Destroy to hoChart1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h1
		Get ComAddItem of hoItems1 "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/4/2001" "A" "A"
		Variant h2
		Get ComAddItem of hoItems1 "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "1/5/2001" "1/7/2001" "B" "B"
		Send ComAddLink of hoItems1 "L1" h1 "A" h2 "B"
		Variant h3
		Get ComAddItem of hoItems1 "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "1/8/2001" "1/10/2001" "C" "C"
		Send ComAddLink of hoItems1 "L2" h2 "B" h3 "C"
		Variant h4
		Get ComAddItem of hoItems1 "Task 4" to h4
		Send ComAddBar of hoItems1 h4 "Task" "1/8/2001" "1/10/2001" "D" "D"
		Send ComAddLink of hoItems1 "L3" h1 "A" h4 "D"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1444
How do I find the incoming bars
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComBarFromPoint of hoChart -1 -1 to v
	Send Destroy to hoChart
	Variant b
	Move v to b
	Variant i
	Get ComItemFromPoint -1 -1 c hit to i
	Variant v1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComItemBar of hoItems i b OLEexBarIncomingBarsDebug to v1
	Send Destroy to hoItems
	Showln v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComLevelCount of hoChart1 to 2
		Set ComFirstVisibleDate of hoChart1 to "12/28/2000"
		Set ComPaneWidth of hoChart1 False to 96
		Set ComNonworkingDays of hoChart1 to 0
		Set ComAllowLinkBars of hoChart1 to True
		Set ComAllowCreateBar of hoChart1 to OLEexCreateBarAuto
	Send Destroy to hoChart1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h1
		Get ComAddItem of hoItems1 "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/4/2001" "A" "A"
		Variant h2
		Get ComAddItem of hoItems1 "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "1/5/2001" "1/7/2001" "B" "B"
		Send ComAddLink of hoItems1 "L1" h1 "A" h2 "B"
		Variant h3
		Get ComAddItem of hoItems1 "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "1/8/2001" "1/10/2001" "C" "C"
		Send ComAddLink of hoItems1 "L2" h2 "B" h3 "C"
		Variant h4
		Get ComAddItem of hoItems1 "Task 4" to h4
		Send ComAddBar of hoItems1 h4 "Task" "1/8/2001" "1/10/2001" "D" "D"
		Send ComAddLink of hoItems1 "L3" h1 "A" h4 "D"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1443
Is it possible to find out all incoming links ( recursively ). Incoming link is a link from another bar to the current bar
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComBarFromPoint of hoChart -1 -1 to v
	Send Destroy to hoChart
	Variant b
	Move v to b
	Variant i
	Get ComItemFromPoint -1 -1 c hit to i
	Variant v1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComItemBar of hoItems i b OLEexBarIncomingLinksAllAsString to v1
	Send Destroy to hoItems
	Showln v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComLevelCount of hoChart1 to 2
		Set ComFirstVisibleDate of hoChart1 to "12/28/2000"
		Set ComPaneWidth of hoChart1 False to 96
		Set ComNonworkingDays of hoChart1 to 0
		Set ComAllowLinkBars of hoChart1 to True
		Set ComAllowCreateBar of hoChart1 to OLEexCreateBarAuto
	Send Destroy to hoChart1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h1
		Get ComAddItem of hoItems1 "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/4/2001" "A" "A"
		Variant h2
		Get ComAddItem of hoItems1 "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "1/5/2001" "1/7/2001" "B" "B"
		Send ComAddLink of hoItems1 "L1" h1 "A" h2 "B"
		Variant h3
		Get ComAddItem of hoItems1 "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "1/8/2001" "1/10/2001" "C" "C"
		Send ComAddLink of hoItems1 "L2" h2 "B" h3 "C"
		Variant h4
		Get ComAddItem of hoItems1 "Task 4" to h4
		Send ComAddBar of hoItems1 h4 "Task" "1/8/2001" "1/10/2001" "D" "D"
		Send ComAddLink of hoItems1 "L3" h1 "A" h4 "D"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1442
How do I find the incoming links. Incoming link is link from another bar to the current bar
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComBarFromPoint of hoChart -1 -1 to v
	Send Destroy to hoChart
	Variant b
	Move v to b
	Variant i
	Get ComItemFromPoint -1 -1 c hit to i
	Variant v1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComItemBar of hoItems i b OLEexBarIncomingLinksAsString to v1
	Send Destroy to hoItems
	Showln v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComLevelCount of hoChart1 to 2
		Set ComFirstVisibleDate of hoChart1 to "12/28/2000"
		Set ComPaneWidth of hoChart1 False to 96
		Set ComNonworkingDays of hoChart1 to 0
		Set ComAllowLinkBars of hoChart1 to True
		Set ComAllowCreateBar of hoChart1 to OLEexCreateBarAuto
	Send Destroy to hoChart1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h1
		Get ComAddItem of hoItems1 "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/4/2001" "A" "A"
		Variant h2
		Get ComAddItem of hoItems1 "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "1/5/2001" "1/7/2001" "B" "B"
		Send ComAddLink of hoItems1 "L1" h1 "A" h2 "B"
		Variant h3
		Get ComAddItem of hoItems1 "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "1/8/2001" "1/10/2001" "C" "C"
		Send ComAddLink of hoItems1 "L2" h2 "B" h3 "C"
		Variant h4
		Get ComAddItem of hoItems1 "Task 4" to h4
		Send ComAddBar of hoItems1 h4 "Task" "1/8/2001" "1/10/2001" "D" "D"
		Send ComAddLink of hoItems1 "L3" h1 "A" h4 "D"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1441
Is it possible to find out all outgoing bars ( recursively )
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComBarFromPoint of hoChart -1 -1 to v
	Send Destroy to hoChart
	Variant b
	Move v to b
	Variant i
	Get ComItemFromPoint -1 -1 c hit to i
	Variant v1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComItemBar of hoItems i b OLEexBarOutgoingBarsAllDebug to v1
	Send Destroy to hoItems
	Showln v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComLevelCount of hoChart1 to 2
		Set ComFirstVisibleDate of hoChart1 to "12/28/2000"
		Set ComPaneWidth of hoChart1 False to 96
		Set ComNonworkingDays of hoChart1 to 0
		Set ComAllowLinkBars of hoChart1 to True
		Set ComAllowCreateBar of hoChart1 to OLEexCreateBarAuto
	Send Destroy to hoChart1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h1
		Get ComAddItem of hoItems1 "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/4/2001" "A" "A"
		Variant h2
		Get ComAddItem of hoItems1 "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "1/5/2001" "1/7/2001" "B" "B"
		Send ComAddLink of hoItems1 "L1" h1 "A" h2 "B"
		Variant h3
		Get ComAddItem of hoItems1 "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "1/8/2001" "1/10/2001" "C" "C"
		Send ComAddLink of hoItems1 "L2" h2 "B" h3 "C"
		Variant h4
		Get ComAddItem of hoItems1 "Task 4" to h4
		Send ComAddBar of hoItems1 h4 "Task" "1/8/2001" "1/10/2001" "D" "D"
		Send ComAddLink of hoItems1 "L3" h1 "A" h4 "D"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1440
How do I find the outgoing bars
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComBarFromPoint of hoChart -1 -1 to v
	Send Destroy to hoChart
	Variant b
	Move v to b
	Variant i
	Get ComItemFromPoint -1 -1 c hit to i
	Variant v1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComItemBar of hoItems i b OLEexBarOutgoingBarsDebug to v1
	Send Destroy to hoItems
	Showln v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComLevelCount of hoChart1 to 2
		Set ComFirstVisibleDate of hoChart1 to "12/28/2000"
		Set ComPaneWidth of hoChart1 False to 96
		Set ComNonworkingDays of hoChart1 to 0
		Set ComAllowLinkBars of hoChart1 to True
		Set ComAllowCreateBar of hoChart1 to OLEexCreateBarAuto
	Send Destroy to hoChart1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h1
		Get ComAddItem of hoItems1 "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/4/2001" "A" "A"
		Variant h2
		Get ComAddItem of hoItems1 "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "1/5/2001" "1/7/2001" "B" "B"
		Send ComAddLink of hoItems1 "L1" h1 "A" h2 "B"
		Variant h3
		Get ComAddItem of hoItems1 "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "1/8/2001" "1/10/2001" "C" "C"
		Send ComAddLink of hoItems1 "L2" h2 "B" h3 "C"
		Variant h4
		Get ComAddItem of hoItems1 "Task 4" to h4
		Send ComAddBar of hoItems1 h4 "Task" "1/8/2001" "1/10/2001" "D" "D"
		Send ComAddLink of hoItems1 "L3" h1 "A" h4 "D"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1439
Is it possible to find out all outgoing links ( recursively ). Outgoing link is link from a bar to another bar
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComBarFromPoint of hoChart -1 -1 to v
	Send Destroy to hoChart
	Variant b
	Move v to b
	Variant i
	Get ComItemFromPoint -1 -1 c hit to i
	Variant v1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComItemBar of hoItems i b OLEexBarOutgoingLinksAllAsString to v1
	Send Destroy to hoItems
	Showln v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComLevelCount of hoChart1 to 2
		Set ComFirstVisibleDate of hoChart1 to "12/28/2000"
		Set ComPaneWidth of hoChart1 False to 96
		Set ComNonworkingDays of hoChart1 to 0
		Set ComAllowLinkBars of hoChart1 to True
		Set ComAllowCreateBar of hoChart1 to OLEexCreateBarAuto
	Send Destroy to hoChart1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h1
		Get ComAddItem of hoItems1 "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/4/2001" "A" "A"
		Variant h2
		Get ComAddItem of hoItems1 "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "1/5/2001" "1/7/2001" "B" "B"
		Send ComAddLink of hoItems1 "L1" h1 "A" h2 "B"
		Variant h3
		Get ComAddItem of hoItems1 "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "1/8/2001" "1/10/2001" "C" "C"
		Send ComAddLink of hoItems1 "L2" h2 "B" h3 "C"
		Variant h4
		Get ComAddItem of hoItems1 "Task 4" to h4
		Send ComAddBar of hoItems1 h4 "Task" "1/8/2001" "1/10/2001" "D" "D"
		Send ComAddLink of hoItems1 "L3" h1 "A" h4 "D"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1438
How do I find the outgoing links. Outgoing link is link from a bar to another bar
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComBarFromPoint of hoChart -1 -1 to v
	Send Destroy to hoChart
	Variant b
	Move v to b
	Variant i
	Get ComItemFromPoint -1 -1 c hit to i
	Variant v1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComItemBar of hoItems i b OLEexBarOutgoingLinksAsString to v1
	Send Destroy to hoItems
	Showln v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComLevelCount of hoChart1 to 2
		Set ComFirstVisibleDate of hoChart1 to "12/28/2000"
		Set ComPaneWidth of hoChart1 False to 96
		Set ComNonworkingDays of hoChart1 to 0
		Set ComAllowLinkBars of hoChart1 to True
		Set ComAllowCreateBar of hoChart1 to OLEexCreateBarAuto
	Send Destroy to hoChart1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h1
		Get ComAddItem of hoItems1 "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/4/2001" "A" "A"
		Variant h2
		Get ComAddItem of hoItems1 "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "1/5/2001" "1/7/2001" "B" "B"
		Send ComAddLink of hoItems1 "L1" h1 "A" h2 "B"
		Variant h3
		Get ComAddItem of hoItems1 "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "1/8/2001" "1/10/2001" "C" "C"
		Send ComAddLink of hoItems1 "L2" h2 "B" h3 "C"
		Variant h4
		Get ComAddItem of hoItems1 "Task 4" to h4
		Send ComAddBar of hoItems1 h4 "Task" "1/8/2001" "1/10/2001" "D" "D"
		Send ComAddLink of hoItems1 "L3" h1 "A" h4 "D"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1437
How do I select a bar using the right-click
// Occurs when the user presses a mouse button.
Procedure OnComMouseDown Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseDown llButton llShift llX llY
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemBar of hoItems 0 "<*>" OLEexBarSelected to False
		Variant vItem
			Get ComItemFromPoint -1 -1 c hit to vItem
	Variant vKey
			Variant voChart
			Get ComChart to voChart
			Handle hoChart
			Get Create (RefClass(cComChart)) to hoChart
			Set pvComObject of hoChart to voChart
				Get ComBarFromPoint of hoChart -1 -1 to vKey
			Send Destroy to hoChart
		Set ComItemBar of hoItems vItem vKey OLEexBarSelected to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComFirstVisibleDate of hoChart1 to "12/29/2000"
		Set ComPaneWidth of hoChart1 False to 64
		Set ComLevelCount of hoChart1 to 2
	Send Destroy to hoChart1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "1/4/2001" "1/6/2001" "K2" Nothing
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 3")) "Task" "1/8/2001" "1/10/2001" "K3" Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1436
How can I add or change the padding (spaces) for captions in the control's header
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Padding-Left" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexHeaderPaddingLeft to 18
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Padding-Right" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexHeaderPaddingRight to 18
			Set ComHeaderAlignment of hoColumn1 to OLERightAlignment
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure
1435
Do you have any plans to add cell spacing and cell padding to the cells

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDrawGridLines to OLEexRowLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Padding-Left" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComDef of hoColumn OLEexCellPaddingLeft to 18
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "No-Padding" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellHasCheckBox to True
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComAdd of hoColumns2 "Empty" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComPosition of hoColumn2 to 0
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Item A.1")) 1 to "Item A.2"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Item B.1")) 1 to "Item B.2"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Item C.1")) 1 to "Item C.2"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1434
Can I display somehow the filter just on the top of the list, with an editor associated to each column

// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
	Send Destroy to hoItems
End_Procedure

// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM   llItem Integer   llColIndex Variant   llNewValue
	Forward Send OnComChange llItem llColIndex llNewValue
	Variant v
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComIsItemLocked of hoItems1 llItem to v
	Send Destroy to hoItems1
	Showln "Locked:" v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns llColIndex to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFilter of hoColumn to llNewValue
			Set ComFilterType of hoColumn to OLEexPattern
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Send ComApplyFilter
End_Procedure

// Occurs when the user releases a mouse button.
Procedure OnComMouseUp Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseUp llButton llShift llX llY
	Variant vOptions
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Get ComLockedItem of hoItems2 OLEexTop 0 to vOptions
	Send Destroy to hoItems2
	Send ComEdit vOptions
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComColumnAutoResize to False
	Set ComScrollBySingleLine to True
	Set ComContinueColumnScroll to False
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "8/3/1994"
	Send Destroy to hoChart
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Variant voItems3
	Get ComItems to voItems3
	Handle hoItems3
	Get Create (RefClass(cComItems)) to hoItems3
	Set pvComObject of hoItems3 to voItems3
		Set ComLockedItemCount of hoItems3 OLEexTop to 2
		Variant h
		Get ComLockedItem of hoItems3 OLEexTop 0 to h
		Variant voEditor
		Get ComCellEditor of hoItems3 h 0 to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Set ComEditType of hoEditor to OLEEditType
		Send Destroy to hoEditor
		Get ComLockedItem of hoItems3 OLEexTop 1 to h
		Set ComItemHeight of hoItems3 h to 4
		Set ComItemDivider of hoItems3 h to 0
		Set ComSelectableItem of hoItems3 h to False
	Send Destroy to hoItems3
End_Procedure
1433
Is it possible to display information about the firing events
// Notifies the application once the control fires an event.
Procedure OnComEvent Integer   llEventID
	Forward Send OnComEvent llEventID
	Showln (ComEventParam(Self,-2))
End_Procedure
1432
I need to specify the start and end dates of the bar to be the same, but to keep count of the working units. Is it possible

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 543
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 256
		Set ComShowEmptyBars of hoChart to 1
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "9/21/2006" "9/21/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "9/22/2006" "9/25/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "9/25/2006" "9/25/2006" Nothing Nothing
		Set ComItemBar of hoItems 0 "<*>" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1431
I need to specify the start and end dates of the bar to be the same, but no bars are shown. (NOT recommended for bars with exBarKeepWorkingCount ) What I can do

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 543
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 256
		Set ComShowEmptyBars of hoChart to 1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "9/21/2006" "9/21/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "9/22/2006" "9/22/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "9/25/2006" "9/25/2006" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1430
I need my chart to display the end date with on day less. How can I do this (Method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 543
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEDateType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 256
		Set ComNonworkingDays of hoChart to 0
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "9/21/2006" "9/24/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "9/22/2006" "9/25/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "9/23/2006" "9/26/2006" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1429
Is it possible to change the width of a specified time unit

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Set ComAllowResizeInsideZoom of hoChart to False
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComBackColorChart of hoInsideZoomFormat to (RGB(255,0,255))
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Set ComDefaultWidth of hoInsideZooms to 18
			Variant voInsideZoom
			Get ComAdd of hoInsideZooms "1/15/2008" to voInsideZoom
			Handle hoInsideZoom
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
			Set pvComObject of hoInsideZoom to voInsideZoom
				Set ComAllowInsideFormat of hoInsideZoom to False
				Set ComWidth of hoInsideZoom to 128
			Send Destroy to hoInsideZoom
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
1428
The level unit of the chart is set to day, so i'd like to set the whole background of the current day. Is it possible to set a background color only on the current day (Method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Set ComAllowResizeInsideZoom of hoChart to False
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComBackColorChart of hoInsideZoomFormat to (RGB(255,0,0))
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Set ComDefaultWidth of hoInsideZooms to 18
			Variant voInsideZoom
			Get ComAdd of hoInsideZooms "1/15/2008" to voInsideZoom
			Handle hoInsideZoom
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
			Set pvComObject of hoInsideZoom to voInsideZoom
				Set ComAllowInsideFormat of hoInsideZoom to False
			Send Destroy to hoInsideZoom
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
1427
The level unit of the chart is set to day, so i'd like to set the whole background of the current day. Is it possible to set a background color only on the current day (Method 1)
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart))
		Set ComLevelCount of hoChart to 2
		Set ComMarkSelectDateColor of hoChart to |CI$7fff0000
		Set ComSelectLevel of hoChart to 1
		Set ComSelectDate of hoChart "1/15/2008" to True
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
1426
How can I change the layout of my columns when using the exCRD

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDrawGridLines to OLEexRowLines
	Set ComDefaultItemHeight to 36
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Column2" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEEditType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "Column3" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComVisible of hoColumn2 to False
		Send Destroy to hoColumn2
		Variant voColumn3
		Get ComAdd of hoColumns "FormatLevel" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComFormatLevel of hoColumn3 to "(0/1),2"
			Set ComDef of hoColumn3 OLEexCellFormatLevel to (ComFormatLevel(hoColumn3))
		Send Destroy to hoColumn3
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1.1" to h
		Set ComCellValue of hoItems h 1 to "Cell 1.2"
		Set ComCellValue of hoItems h 2 to "Cell 1.3"
		Get ComAddItem of hoItems "Cell 2.1" to h
		Set ComCellValue of hoItems h 1 to "Cell 2.2"
		Set ComCellValue of hoItems h 2 to "Cell 2.3"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1425
How can I overlaid a single bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 22
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComScrollBySingleLine to True
	Set ComBackColorAlternate to (RGB(240,240,240))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "12/28/2000"
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidGroup of hoBar to "OTask"
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsNone
				Set ComDef of hoBar OLEexBarCaption to "<%=%9%>"
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComCopy of hoBars1 "Task" "OTask" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComOverlaidGroup of hoBar1 to "Task"
				Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStrict + OLEexOverlaidBarsCascade)
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Default" to h1
		Get ComAddItem of hoItems "Overlaid" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
		Send ComAddBar of hoItems h "OTask" "1/3/2001" "1/5/2001" "A2" Nothing
		Set ComItemBar of hoItems h "A2" OLEexBarColor to 255
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "A4" Nothing
		Get ComAddItem of hoItems "Default" to h1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1424
How can I use the exOverlaidBarsCascade, exBarOverlaidKey

// Fired when the user creates a new bar.
Procedure OnComCreateBar HITEM   llItem DateTime   llDateStart DateTime   llDateEnd
	Forward Send OnComCreateBar llItem llDateStart llDateEnd
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemBar of hoItems llItem "newbar" OLEexBarOverlaidKey to "Level0"
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 22
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComScrollBySingleLine to True
	Set ComBackColorAlternate to (RGB(240,240,240))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "12/28/2000"
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsCascade
				Set ComDef of hoBar OLEexBarCaption to "<%=%9%>"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h1
		Get ComAddItem of hoItems1 "Default" to h1
		Get ComAddItem of hoItems1 "Overlaid" to h
		Send ComAddBar of hoItems1 h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
		Set ComItemBar of hoItems1 h "A1" OLEexBarOverlaidKey to "Level0"
		Send ComAddBar of hoItems1 h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
		Set ComItemBar of hoItems1 h "A3" OLEexBarOverlaidKey to "Level0"
		Send ComAddBar of hoItems1 h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
		Set ComItemBar of hoItems1 h "A2" OLEexBarColor to 255
		Set ComItemBar of hoItems1 h "A2" OLEexBarOverlaidKey to "Level1"
		Send ComAddBar of hoItems1 h "Task" "1/5/2001" "1/8/2001" "A4" Nothing
		Set ComItemBar of hoItems1 h "A4" OLEexBarColor to 255
		Set ComItemBar of hoItems1 h "A4" OLEexBarOverlaidKey to "Level1"
		Get ComAddItem of hoItems1 "Default" to h1
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1423
How can I use the exOverlaidBarsStack+exOverlaidBarsStackAutoArrange

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 22
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComScrollBySingleLine to True
	Set ComBackColorAlternate to (RGB(240,240,240))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "12/28/2000"
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
				Set ComDef of hoBar OLEexBarCaption to "<%=%9%>"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Default" to h1
		Get ComAddItem of hoItems "Overlaid" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
		Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "A4" Nothing
		Get ComAddItem of hoItems "Default" to h1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1422
How can I use the exOverlaidBarsStack

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 22
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComScrollBySingleLine to True
	Set ComBackColorAlternate to (RGB(240,240,240))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "12/28/2000"
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsStack
				Set ComDef of hoBar OLEexBarCaption to "<%=%9%>"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Default" to h1
		Get ComAddItem of hoItems "Overlaid" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
		Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "A4" Nothing
		Get ComAddItem of hoItems "Default" to h1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1421
How can I use the exOverlaidBarsIntersect

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 22
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComScrollBySingleLine to True
	Set ComBackColorAlternate to (RGB(240,240,240))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "12/28/2000"
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsIntersect
				Set ComOverlaid of hoBar OLEexOverlaidBarsIntersect to "Progress"
				Set ComDef of hoBar OLEexBarCaption to "<%=%9%>"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Default" to h1
		Get ComAddItem of hoItems "Overlaid" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
		Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "A4" Nothing
		Get ComAddItem of hoItems "Default" to h1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1420
How can I use the exOverlaidBarsOffset

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 22
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComScrollBySingleLine to True
	Set ComBackColorAlternate to (RGB(240,240,240))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "12/28/2000"
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsOffset
				Set ComDef of hoBar OLEexBarCaption to "<%=%9%>"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Default" to h1
		Get ComAddItem of hoItems "Overlaid" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
		Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "A4" Nothing
		Get ComAddItem of hoItems "Default" to h1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1419
Is it possible to specify the end of the project when using the SchedulePDM method
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/28/2000"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/2/2001" "1/5/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "FS"
		Variant h3
		Get ComAddItem of hoItems "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/2/2001" "1/6/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems "L2" OLEexLinkText to "SS"
		Set ComLink of hoItems "L2" OLEexLinkStartPos to 0
		Set ComLink of hoItems "L2" OLEexLinkEndPos to 0
		Set ComDefSchedulePDM of hoItems OLEexPDMScheduleType to 2
		Set ComDefSchedulePDM of hoItems OLEexPDMScheduleDate to "1/8/2001"
		Get ComSchedulePDM of hoItems 0 "K1" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1418
Is it possible to specify the start of the project when using the SchedulePDM method
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/28/2000"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/2/2001" "1/5/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "FS"
		Variant h3
		Get ComAddItem of hoItems "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/2/2001" "1/6/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems "L2" OLEexLinkText to "SS"
		Set ComLink of hoItems "L2" OLEexLinkStartPos to 0
		Set ComLink of hoItems "L2" OLEexLinkEndPos to 0
		Set ComDefSchedulePDM of hoItems OLEexPDMScheduleType to 1
		Set ComDefSchedulePDM of hoItems OLEexPDMScheduleDate to "1/8/2001"
		Get ComSchedulePDM of hoItems 0 "K1" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1417
How can I change the caption or the addition information being displayed in the Zoom-OnFly view

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Set ComAllowZoomOnFly of hoChart to OLEexZoomOnFly
		Set ComResizeUnitScale of hoChart to OLEexHour
		Set ComLabel of hoChart OLEexHour to "<font ;5><b><%h%><br><%AM/PM%></b></font>"
		Set ComZoomOnFlyCaption of hoChart to "<br><c><b><font ;12><%=%C0 + ' / <fgcolor=00FF00>' + %3%></font></fgcolor></b><br><solidline><upline><b>Start</b>:<%=%1%><br><b>End</b>:<%=%2%><br><b>Duration</b>:<%=round(%2-%1) + ' days'%><br><b>Working</b>:<%='<b>' + int(%258) + '</b> days' + (0:=(%258 - int(%258)) ? (' <fgcolor=FF0000><b>' + round(24 * =:0) + '</b> hours') : '') %>"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "T1" "T1"
		Send ComAddBar of hoItems h "Task" "1/11/2001" "1/14/2001" "T3" "T3"
		Get ComAddItem of hoItems Nothing to h
		Send ComAddBar of hoItems h "" "1/15/2001" "1/15/2001" "" "Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
		Set ComSelectableItem of hoItems h to False
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1416
How can I change the scale in the Zoom-OnFly view

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Set ComAllowZoomOnFly of hoChart to OLEexZoomOnFly
		Set ComResizeUnitScale of hoChart to OLEexHour
		Set ComLabel of hoChart OLEexHour to "<font ;5><b><%h%><br><%AM/PM%></b></font>"
		Set ComZoomOnFlyCaption of hoChart to ""
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "T1" "T1"
		Send ComAddBar of hoItems h "Task" "1/11/2001" "1/14/2001" "T3" "T3"
		Get ComAddItem of hoItems Nothing to h
		Send ComAddBar of hoItems h "" "1/15/2001" "1/15/2001" "" "Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
		Set ComSelectableItem of hoItems h to False
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1415
Is it possible to change the Zoom-OnFly view's background color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Set ComAllowZoomOnFly of hoChart to OLEexZoomOnFly
		Set ComBackColorZoomOnFly of hoChart to (RGB(240,240,240))
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "T1" "T1"
		Send ComAddBar of hoItems h "Task" "1/11/2001" "1/14/2001" "T3" "T3"
		Get ComAddItem of hoItems Nothing to h
		Send ComAddBar of hoItems h "" "1/15/2001" "1/15/2001" "" "Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
		Set ComSelectableItem of hoItems h to False
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1414
How can I include the selected items in the Zoom-OnFly view

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Set ComAllowZoomOnFly of hoChart to (OLEexZoomOnFlyIncludeSelectedItems + OLEexZoomOnFly)
		Set ComSelBackColor of hoChart to (RGB(240,240,240))
		Set ComSelectOnClick of hoChart to False
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "T1" "T1"
		Set ComSelectItem of hoItems h to True
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Task" "1/11/2001" "1/14/2001" "T2" "T2"
		Get ComAddItem of hoItems "Task 3" to h
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "T3" "T3"
		Get ComAddItem of hoItems Nothing to h
		Send ComAddBar of hoItems h "" "1/15/2001" "1/15/2001" "" "Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
		Set ComSelectableItem of hoItems h to False
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1413
Is it possible to include the neighbors items in the Zoom-OnFly view

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Set ComAllowZoomOnFly of hoChart to (OLEexZoomOnFlyIncludeNeighborItems + OLEexZoomOnFly)
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "T1" "T1"
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Task" "1/11/2001" "1/14/2001" "T3" "T3"
		Get ComAddItem of hoItems "Task 3" to h
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "T1" "T1"
		Get ComAddItem of hoItems Nothing to h
		Send ComAddBar of hoItems h "" "1/15/2001" "1/15/2001" "" "Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
		Set ComSelectableItem of hoItems h to False
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1412
How can I enable the Zoom-OnFly view

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "11/5/2000"
		Set ComLevelCount of hoChart to 2
		Set ComUnitScale of hoChart to OLEexWeek
		Set ComResizeUnitScale of hoChart to OLEexDay
		Set ComAllowZoomOnFly of hoChart to OLEexZoomOnFly
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsStack
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/7/2001" "1/17/2001" "T1" "T1"
		Send ComAddBar of hoItems h "Task" "1/18/2001" "2/24/2001" "T3" "T3"
		Get ComAddItem of hoItems Nothing to h
		Send ComAddBar of hoItems h "" "1/15/2001" "1/15/2001" "" "Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
		Set ComSelectableItem of hoItems h to False
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1411
I am using the overlay bars on stack, can I somehow tell a type of bar, or a specific bar, to be always on top of all other’s. Like a Z-Index or something

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComScrollBySingleLine to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComDrawGridLines to OLEexHLines
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComDrawGridLines of hoChart to OLEexHLines
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComAllowLinkBars of hoChart to False
		Set ComResizeUnitScale of hoChart to OLEexHour
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsStack
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" "A1"
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A3" "A3"
		Set ComItemBar of hoItems h "A3" OLEexBarColor to 65280
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A31" "A31"
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A3" "A3"
		Set ComItemBar of hoItems h "A3" OLEexBarColor to 255
		Send ComAddBar of hoItems (ComAddItem(hoItems,Nothing)) "" "1/10/2001" "1/10/2001" "The <b>Key</b> of the bar specifies the Z-Order when overlaying."
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1410
Is it possible to specify the z-order when using the overlaying feature

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComNonworkingDays of hoChart to 0
		Set ComFirstVisibleDate of hoChart to "9/17/2006"
		Set ComPaneWidth of hoChart False to 64
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsCascade
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task" to h1
		Send ComAddBar of hoItems h1 "Task" "9/21/2006" "9/27/2006" "K1" "K1"
		Send ComAddBar of hoItems h1 "Task" "9/23/2006" "9/24/2006" "K2" "K2"
		Send ComAddBar of hoItems h1 "Task" "9/22/2006" "9/25/2006" "K3" "K3"
		Send ComAddBar of hoItems h1 "Task" "9/21/2006" "9/27/2006" "T1" "T1"
		Send ComAddBar of hoItems h1 "Task" "9/28/2006" "9/29/2006" "T2" "T2"
		Send ComAddBar of hoItems h1 "Task" "9/30/2006" "10/3/2006" "T3" "T3"
		Set ComItemBar of hoItems 0 "<T*>" OLEexBarColor to 65280
		Set ComItemBar of hoItems 0 "<K*>" OLEexBarOverlaidKey to "A"
		Set ComItemBar of hoItems 0 "<T*>" OLEexBarOverlaidKey to "B"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1409
I seen that there is no exBarStartColor, exBarEndColor, similar to exBarColor, is there any solution so I can display a different Start/End Color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Summary" "Aka1" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartColor of hoBar to (RGB(255,0,0))
				Set ComEndColor of hoBar to (RGB(0,0,255))
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComCopy of hoBars1 "Summary" "Aka2" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComStartColor of hoBar1 to (RGB(0,255,0))
				Set ComEndColor of hoBar1 to (RGB(255,0,255))
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Item A" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "B1" Nothing
		Set ComItemBar of hoItems h "B1" OLEexBarName to "Aka1"
		Get ComAddItem of hoItems "Item B" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "B2" Nothing
		Set ComItemBar of hoItems h "B2" OLEexBarName to "Aka2"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1408
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComHTMLPicture "p1" to "c:\exontrol\images\card.png"
	Set ComHTMLPicture "p2" to "c:\exontrol\images\sun.png"
	Set ComAutoDrag to OLEexAutoDragCopySnapShot
	Set ComLinesAtRoot to OLEexNoLinesAtRoot
	Set ComHasLines to OLEexThinLine
	Set ComShowFocusRect to False
	Set ComDefaultItemHeight to 26
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComShowNonworkingDates of hoChart to False
		Set ComFirstVisibleDate of hoChart to "12/29/2000"
		Set ComPaneWidth of hoChart False to 96
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
				Set ComHeight of hoBar to 18
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "<img>p1:32</img>Group 1" to h
		Set ComCellValueFormat of hoItems h 0 to OLEexHTML
		Set ComItemDivider of hoItems h to 0
		Set ComItemBold of hoItems h to True
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComInsertItem of hoItems h "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "L1"
		Variant h3
		Get ComInsertItem of hoItems h "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems "L2" OLEexLinkText to "L2"
		Get ComAddItem of hoItems "<img>p2:32</img>Group 2" to h
		Set ComCellValueFormat of hoItems h 0 to OLEexHTML
		Set ComItemBold of hoItems h to True
		Set ComItemDivider of hoItems h to 0
		Get ComInsertItem of hoItems h "Task" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Set ComExpandItem of hoItems 0 to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1407
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "p1" to "c:\exontrol\images\card.png"
	Set ComHTMLPicture "p2" to "c:\exontrol\images\sun.png"
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant var_HTMLPicture
	Get ComHTMLPicture "aka1" to var_HTMLPicture
	Set ComHeaderHeight to 24
	Set ComDefaultItemHeight to 48
	Set ComDrawGridLines to OLEexRowLines
	Set ComGridLineColor to (RGB(240,240,240))
	Set ComSelBackMode to OLEexTransparent
	Set ComColumnAutoResize to False
	Set ComContinueColumnScroll to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 0 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFormatColumn of hoColumn1 to "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComItem of hoColumns2 0 to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComWidth of hoColumn2 to 112
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Variant voColumns3
	Get ComColumns to voColumns3
	Handle hoColumns3
	Get Create (RefClass(cComColumns)) to hoColumns3
	Set pvComObject of hoColumns3 to voColumns3
		Variant voColumn3
		Get ComItem of hoColumns3 1 to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComDef of hoColumn3 OLEexCellHasCheckBox to 1
		Send Destroy to hoColumn3
	Send Destroy to hoColumns3
	Variant voColumns4
	Get ComColumns to voColumns4
	Handle hoColumns4
	Get Create (RefClass(cComColumns)) to hoColumns4
	Set pvComObject of hoColumns4 to voColumns4
		Variant voColumn4
		Get ComItem of hoColumns4 2 to voColumn4
		Handle hoColumn4
		Get Create (RefClass(cComColumn)) to hoColumn4
		Set pvComObject of hoColumn4 to voColumn4
			Set ComLevelKey of hoColumn4 to "1"
		Send Destroy to hoColumn4
	Send Destroy to hoColumns4
	Variant voColumns5
	Get ComColumns to voColumns5
	Handle hoColumns5
	Get Create (RefClass(cComColumns)) to hoColumns5
	Set pvComObject of hoColumns5 to voColumns5
		Variant voColumn5
		Get ComItem of hoColumns5 3 to voColumn5
		Handle hoColumn5
		Get Create (RefClass(cComColumn)) to hoColumn5
		Set pvComObject of hoColumn5 to voColumn5
			Set ComLevelKey of hoColumn5 to "1"
		Send Destroy to hoColumn5
	Send Destroy to hoColumns5
	Variant voColumns6
	Get ComColumns to voColumns6
	Handle hoColumns6
	Get Create (RefClass(cComColumns)) to hoColumns6
	Set pvComObject of hoColumns6 to voColumns6
		Variant voColumn6
		Get ComItem of hoColumns6 4 to voColumn6
		Handle hoColumn6
		Get Create (RefClass(cComColumn)) to hoColumn6
		Set pvComObject of hoColumn6 to voColumn6
			Set ComLevelKey of hoColumn6 to "1"
		Send Destroy to hoColumn6
	Send Destroy to hoColumns6
	Set ComAutoDrag to OLEexAutoDragCopyImage
	Set ComSingleSel to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComItemByIndex of hoItems 1 to h
		Set ComSelectItem of hoItems h to True
		Get ComItemByIndex of hoItems 2 to h
		Set ComSelectItem of hoItems h to True
		Get ComItemByIndex of hoItems 3 to h
		Set ComSelectItem of hoItems h to True
		Set ComLockedItemCount of hoItems OLEexBottom to 1
		Get ComLockedItem of hoItems OLEexBottom 0 to h
		Set ComCellValue of hoItems h 1 to "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ..."
		Set ComCellSingleLine of hoItems h 1 to False
		Set ComCellValueFormat of hoItems h 1 to OLEexHTML
		Set ComCellHAlignment of hoItems h 1 to OLECenterAlignment
		Set ComItemDivider of hoItems h to 1
		Set ComItemDividerLineAlignment of hoItems h to OLEDividerTop
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1406
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComColumnAutoResize to False
	Set ComContinueColumnScroll to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 2 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComLevelKey of hoColumn to "1"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 3 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComLevelKey of hoColumn1 to "1"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComItem of hoColumns2 4 to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComLevelKey of hoColumn2 to "1"
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Set ComAutoDrag to OLEexAutoDragCopyText
	Set ComSingleSel to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComItemByIndex of hoItems 1 to h
		Set ComSelectItem of hoItems h to True
		Get ComItemByIndex of hoItems 3 to h
		Set ComSelectItem of hoItems h to True
		Get ComItemByIndex of hoItems 4 to h
		Set ComSelectItem of hoItems h to True
		Get ComItemByIndex of hoItems 5 to h
		Set ComSelectItem of hoItems h to True
		Set ComLockedItemCount of hoItems OLEexBottom to 1
		Get ComLockedItem of hoItems OLEexBottom 0 to h
		Set ComCellValue of hoItems h 0 to "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ..."
		Set ComCellSingleLine of hoItems h 0 to False
		Set ComCellValueFormat of hoItems h 0 to OLEexHTML
		Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
		Set ComItemDivider of hoItems h to 0
		Set ComItemDividerLineAlignment of hoItems h to OLEDividerTop
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1405
Is it possible to change the indentation during the drag and drop
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAutoDrag to OLEexAutoDragPositionAny
	Set ComLinesAtRoot to OLEexNoLinesAtRoot
	Set ComHasLines to OLEexSolidLine
	Set ComHasButtons to OLEexWPlus
	Set ComShowFocusRect to False
	Set ComSelBackMode to OLEexTransparent
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComShowNonworkingDates of hoChart to False
		Set ComFirstVisibleDate of hoChart to "12/29/2000"
		Set ComPaneWidth of hoChart False to 128
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Group 1" to h
		Set ComItemBold of hoItems h to True
		Set ComItemDivider of hoItems h to 0
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComInsertItem of hoItems h1 "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/15/2001" "1/17/2001" "K4" Nothing
		Get ComInsertItem of hoItems h1 "Task 3" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "L1"
		Variant h3
		Get ComInsertItem of hoItems h "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems "L2" OLEexLinkText to "L2"
		Set ComExpandItem of hoItems h to True
		Set ComExpandItem of hoItems h1 to True
		Get ComAddItem of hoItems "Group 2" to h
		Set ComItemBold of hoItems h to True
		Set ComItemDivider of hoItems h to 0
		Set ComLockedItemCount of hoItems OLEexBottom to 1
		Get ComLockedItem of hoItems OLEexBottom 0 to h
		Set ComCellValue of hoItems h 0 to "Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the indentation."
		Set ComCellSingleLine of hoItems h 0 to False
		Set ComCellValueFormat of hoItems h 0 to OLEexHTML
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1404
Is it possible to allow moving an item to another, but keeping its indentation
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAutoDrag to OLEexAutoDragPositionKeepIndent
	Set ComLinesAtRoot to OLEexNoLinesAtRoot
	Set ComHasLines to OLEexThinLine
	Set ComShowFocusRect to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComShowNonworkingDates of hoChart to False
		Set ComFirstVisibleDate of hoChart to "12/29/2000"
		Set ComPaneWidth of hoChart False to 96
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Group 1" to h
		Set ComItemDivider of hoItems h to 0
		Set ComItemBold of hoItems h to True
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComInsertItem of hoItems h "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "L1"
		Variant h3
		Get ComInsertItem of hoItems h "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems "L2" OLEexLinkText to "L2"
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Group 2" to h
		Set ComItemBold of hoItems h to True
		Set ComItemDivider of hoItems h to 0
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1403
How can I change the row's position to another, by drag and drop. Is it possible
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAutoDrag to OLEexAutoDragPosition
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComShowNonworkingDates of hoChart to False
		Set ComFirstVisibleDate of hoChart to "12/29/2000"
		Set ComPaneWidth of hoChart False to 64
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "L1"
		Variant h3
		Get ComAddItem of hoItems "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems "L2" OLEexLinkText to "L2"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1402
Is it possible to scroll the control's content by clicking and moving the mouse up or down

// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "8/3/1994"
		Set ComPaneWidth of hoChart False to 256
		Set ComLevelCount of hoChart to 2
		Set ComUnitScale of hoChart to OLEexDay
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
	Send Destroy to hoChart
	Set ComColumnAutoResize to False
	Set ComContinueColumnScroll to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Set ComAutoDrag to OLEexAutoDragScroll
	Send ComEndUpdate
End_Procedure
1401
How can I display bars so they fit the entire height ( height of the row )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComDefaultItemHeight to 36
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 164
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComUnitWidth of hoChart to 48
		Set ComLevelCount of hoChart to 2
		Set ComUnitScale of hoChart to OLEexHour
		Set ComNonworkingHours of hoChart to 16253183
		Set ComShowNonworkingUnits of hoChart to False
		Set ComUnitWidth of hoChart to 16
		Set ComFirstVisibleDate of hoChart to "1/1/2012 8:00:00 AM"
		Set ComDrawGridLines of hoChart to OLEexAllLines
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Empty" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to OLEexPatternEmpty
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment)
			Set ComLabel of hoLevel to "<%d2%>"
		Send Destroy to hoLevel
		Set ComAllowLinkBars of hoChart to False
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComBarsAllowSizing of hoChart to False
		Set ComAllowSelectObjects of hoChart to OLEexNoSelectObjects
	Send Destroy to hoChart
	Set ComDrawGridLines to OLEexAllLines
	Set ComShowFocusRect to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "CA" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellSingleLine to False
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "CB" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellSingleLine to False
			Set ComDef of hoColumn1 OLEexCellValueFormat to 1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Address 1.1<br>Line 2.1<br>C1" to h
		Set ComItemMaxHeight of hoItems h to 96
		Set ComCellValue of hoItems h 1 to "Address 1.2<br>Line 2.2<br>C2"
		Send ComAddBar of hoItems h "Empty" "1/2/2012 8:00:00 AM" "1/2/2012 7:00:00 PM" "A" "This is a bit of text<br>being <font ;9>displayed ion the <b>bar A"
		Set ComItemBar of hoItems h "A" OLEexBarBackColor to 16777471
		Set ComItemBar of hoItems h "A" OLEexBarHAlignCaption to 0
		Set ComItemBar of hoItems h "A" OLEexBarVAlignCaption to 2
		Send ComAddBar of hoItems h "Empty" "1/3/2012 8:00:00 AM" "1/3/2012 7:00:00 PM" "B" "<fgcolor=FFFFFF>This is a bit of text<br><fgcolor=FFFFFF>being <font ;9>displayed ion the <b>bar B"
		Set ComItemBar of hoItems h "B" OLEexBarBackColor to 33488896
		Set ComItemBar of hoItems h "B" OLEexBarHAlignCaption to 2
		Set ComItemBar of hoItems h "B" OLEexBarVAlignCaption to 0
		Send ComAddBar of hoItems h "Empty" "1/4/2012 8:00:00 AM" "1/4/2012 7:00:00 PM" "C" "<font Tahoma;12><b>bar C"
		Set ComItemBar of hoItems h "C" OLEexBarBackColor to 33489151
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure